home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / TurboM2 / m2 / Storage.def < prev    next >
Text File  |  1994-12-22  |  403b  |  14 lines
  1. DEFINITION MODULE Storage ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS ;
  4.  
  5. PROCEDURE ALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  6. (* Allocates and clears size bytes of memory.        *)
  7. (* Aborts program execution if the allocation fails *)
  8.  
  9. PROCEDURE DEALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  10. (* Aborts if adr = NIL.                         *)
  11. (* Size argument is ignored ( the entire block is always freed). *)
  12.  
  13. END Storage.
  14.